home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue72 / dynimag / Listing3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-07-03  |  224 b   |  11 lines
  1. uses
  2.   JPEG;
  3. var
  4.   Picture: TPicture;
  5.   JPEG: TJPegImage;
  6. begin
  7.   Picture := TPicture.Create;
  8.   Picture.Assign(DataSet.FieldByName(FieldName) AS TGraphicField);
  9.   JPEG := TJPegImage.Create;
  10.   JPEG.Assign(Picture);
  11.